home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / Ahoy! Demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  892b  |  22 lines
  1. 10 print"[147]loading machine language..."
  2. 20 dim a$(30):poke53280,0:poke53281,0:print"[147]"
  3. 30 fori=1to30:reada$(i):next
  4. 40 poke820,45:poke821,200:rem --- scroll speed ---
  5. 50 poke250,3:rem --- text color ---
  6. 60 rem --- a$(20)="" means last string ---
  7. 70 a$(1)=mid$(a$(1),1):sys49152
  8. 80 end
  9. 90 rem --- text to scroll ---
  10. 100 data " "," "," ","this is movie scroll..."," "
  11. 110 data "the fine-scroll utility which you have","been waiting for!!!"
  12. 120 data " ","scroll your help screens..."," ","or your title screens..."
  13. 130 data " ","or use it to title your home videos!"
  14. 140 data " "," "," ","*** all with movie scroll!!![146] ***"," "," "
  15. 150 data "it's safe, non-toxic, and harmless"
  16. 160 data "as well as simple and convenient."
  17. 170 data "all you do is set up a string array!"
  18. 180 data "now, unless you want to sit here all"
  19. 190 data "day long watching this demo,hit any key"
  20. 200 data "to return control to basic...."," "," "," "
  21. 210 data "ah well, here we go again...",""
  22.